home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD006a.dsk / PRINTALL.bas < prev    next >
BASIC Source File  |  2003-06-12  |  806b  |  17 lines
  1. 5 D$ =  CHR$(4): REM  CONTROL-D
  2. 10  PRINT  CHR$(4);"PR#1": REM  CHANGE THIS LINE TO THE CORRECT PRINTER INITIALIZATION COMMAND
  3. 15  PRINT  CHR$(4);"BLOAD B.SOFTTEXT,A$1000": REM  LOAD THE FILE STARTING AT ADDRESS 4096
  4. 30 X = 4096: REM   INITIALIZE X TO POINT TO THE BEGINNING OF THE FILE
  5. 40 Y =  PEEK(X): REM  GET THE VALUE STORED IN MEMORY AT X INTO Y
  6. 50  IF Y = 225  AND  PEEK(X +1) <223  THEN  GOTO 500: REM  CHECK FOR COMMAND STRING AND SKIP TO 500
  7. 52  IF Y = 96  THEN  GOTO 800: REM  END OF THE FILE
  8. 55  IF Y >223  THEN Y = Y -64: REM  MAKE SURE Y IS IN THE RANGE OF 141 TO 223
  9. 57  IF Y <141  THEN 70: REM  SKIP CONTROL CHARACTERS
  10. 60  PRINT  CHR$(Y);
  11. 70 X = X +1: REM  INCREMENT X
  12. 80  GOTO 40
  13. 500 X = X +1
  14. 510 Y =  PEEK(X)
  15. 520  IF Y = 141  THEN  GOTO 70
  16. 530  GOTO 500
  17. 800  PRINT : PRINT D$;"PR#0": END